home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #5 / Amiga Plus CD - 1996 - No. 5.iso / pd / grafik / adpro_scripts / operators / pixelize_region_ < prev    next >
Text File  |  1996-04-23  |  2KB  |  92 lines
  1. /* $VER: Pixelize_Region_ 1.00 (23.4.96)© Felix C. Coronado
  2. */
  3. ADDRESS "ADPro"
  4. OPTIONS RESULTS
  5. NL='0A'x
  6. IMAGE_TYPE
  7. IF ADPro_Result='BITPLANE' THEN DO
  8.  ADPRO_TO_FRONT
  9.  OKAY1 "Oops!"||NL||,
  10.        "There is no 8 or 24 bit" ||NL||,
  11.        "data." ||NL||,
  12.        "Try loading"||NL||,
  13.        "data from disk."
  14.  EXIT
  15. END
  16. XSIZE
  17. ImageWidth=ADPro_Result
  18. YSIZE
  19. ImageHeight=ADPro_Result
  20. SAVE_DEFAULTS "T:TempADProDefaults"
  21. SAVER "IFF" "T:TempOrig" "RAW"
  22. IF rc=10 THEN DO
  23.  ADPRO_TO_FRONT
  24.   OKAY1 'Error saving file'||NL||,
  25.         '"T:TempOrig"'
  26.  CALL ErrorOut 10
  27. END
  28. ADPRO_TO_FRONT
  29. OKAY1 "Select the region to process."||NL||,
  30.       "Record the X and Y pixel offsets of this"||NL||,
  31.       "region; you will need to enter them later."||NL||NL||,
  32.       "Select the 'Accept' button when done."
  33.  
  34. OFORMAT "CROP_VISUAL"
  35. IF rc=10 THEN DO
  36.  ADPRO_TO_FRONT
  37.   OKAY1 'Error: Operator not found'||NL||,
  38.         '"Operators2/Crop_Visual"'
  39.  CALL ErrorOut 10
  40. END
  41. OPERATE_GUI
  42. ADPRO_TO_FRONT
  43. GETNUMBER '"Enter the X Offset value"' 0 0 ImageWidth
  44. IF rc=10 THEN CALL ErrorOut 10
  45.          ELSE HiliteXOff=ADPro_Result
  46. ADPRO_TO_FRONT
  47. GETNUMBER '"Enter the Y Offset value"' 0 0 ImageHeight
  48. IF rc=10 THEN CALL ErrorOut 10
  49.          ELSE HiliteYOff=ADPro_Result
  50.  
  51.  
  52. TileSize=TRUNC(ImageHeight/40)
  53. OPERATOR "MOSAIC" XSIZE TileSize YSIZE TileSize XOFFSET 0 YOFFSET 0
  54.  
  55.  
  56. IF rc=10 THEN DO
  57.  ADPRO_TO_FRONT
  58.  OKAY1 "Error processing region"
  59.  CALL ErrorOut 10
  60. END
  61. SAVER "IFF" "T:TempArea" "RAW"
  62. IF rc=10 THEN DO
  63.  ADPRO_TO_FRONT
  64.   OKAY1 'Error saving file'||NL||,
  65.         '"T:TempArea"'
  66.  CALL ErrorOut 10
  67. END
  68. LOADER "UNIVERSAL" "T:TempOrig"
  69. IF rc=10 THEN DO
  70.  ADPRO_TO_FRONT
  71.   OKAY1 'Error loading file'||NL||,
  72.         '"T:TempOrig"'
  73.  CALL ErrorOut 10
  74. END
  75. ADDRESS COMMAND "Delete >NIL: T:TempOrig"
  76. LOADER "UNIVERSAL" "T:TempArea" HiliteXOff HiliteYOff 100
  77. IF rc=10 THEN DO
  78.  ADPRO_TO_FRONT
  79.   OKAY1 'Error loading file'||NL||,
  80.         '"T:TempArea"'
  81.  CALL ErrorOut 10
  82. END
  83. CALL ErrorOut 0
  84.  
  85. ErrorOut:
  86. PARSE ARG ExitCode
  87. LOAD_DEFAULTS "T:TempADProDefaults"
  88. ADDRESS COMMAND "Delete >NIL: T:TempADProDefaults"
  89. ADDRESS COMMAND "Delete >NIL: T:TempOrig"
  90. ADDRESS COMMAND "Delete >NIL: T:TempArea"
  91. EXIT ExitCode
  92.